home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 4 / ETO Development Tools 4.iso / Essentials / MacApp Documentation / MacApp.TECH$ Archives / 1988 / Oct⁄Nov 88 / Hiliting (sic) Bug in < prev    next >
Encoding:
Text File  |  1991-03-06  |  999 b   |  31 lines  |  [TEXT/GEOL]
  1. Item    8836549                         21-Nov-88        22:30
  2.  
  3. From:   D1113                           Peridom, Dev, Robert Dominy
  4.  
  5. To:     MACAPP.TEST                     MacApp SQA Team
  6.         BIANCHI1                        Bianchi, Curt
  7.  
  8. cc:     MACAPP.TECH$                    MACAPP Tech
  9.  
  10. Sub:    Hiliting Bug in TTextListViews
  11.  
  12. I found the bug I was having with hiliting in a TTextListView.  It's actually
  13. in the initialization of TCellSelectCommand, where a couple of the command's
  14. fields do not get initialized.  Adding these fixes the problem (see below):
  15.  
  16. PROCEDURE TCellSelectCommand.ICellSelectCommand (itsView: TGridView;
  17.    aCell: GridCell; theShiftKey, theCmdKey: BOOLEAN);
  18. BEGIN
  19.      IGridSelectCommand (cCellSelect, itsView, theShiftKey, theCmdKey);
  20.    fNewMouseDown := TRUE;
  21.      fOldCell.h:= 0;            { <------ add this}
  22.    fOldCell.v:= 0;          { <------ added this}
  23.      fKeepSelecting:= FALSE;    { <------ added this}
  24. END;
  25.  
  26. Robert Dominy
  27. Peridom, Inc.
  28.  
  29.  
  30.  
  31.